home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c3.d64 / versa term.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  351 lines
  1. 1 REM  BBS NAMES START AT LINE# 816 
  2. 2 REM  PHONE #'S START AT LINE# 921 
  3. 3 REM  QL$ IS ID/PASSWORD REMINDER  
  4. 4 REM
  5. 5 IFPEEK(22784)=76GOTO51
  6. 6 POKE665,5:POKE666,13:F3=8
  7. 11 POKE53281,11:PRINT"[147] AUTO VERSA-TERM ":PRINT"VERSION 4.0 / 30 SEPT 84"
  8. 16 PRINT"ORIGINALLY BY STEVE PUNTER."
  9. 21 PRINT"CONVERTED TO C64 BY KEITH PETERSON."
  10. 26 PRINT"[158]MODIFIED AND ENHANCED BY:":PRINT"EARL GOLDBERG AND RICH BUCHANAN, [155]OF"
  11. 27 PRINT"[155]THE KANSAS CITY COMMODORE USERS' GROUP."
  12. 28 IFPEEK(828)<>169THENGOSUB9900
  13. 31 FORX=1TO1000:NEXT:GOTO46
  14. 36 GOTO181
  15. 46 PRINT"[159]LOADING MACHINE LANGUAGE SUBROUTINES..."
  16. 51 POKE24816,6:POKE24817,0:REM 300BAUD 8BIT NO PARITY
  17. 56 POKE53280,0 :POKE646,7:POKE53281, 0
  18. 61 IFPEEK(22784)<>76THENLOAD"AVT.ML2",8,1
  19. 66 IFPEEK(49152)<>169THENLOAD"AVT.ML1",8,1
  20. 81 R%=5:MO%=6:SE$="":ML=22784
  21. 86 POKE56,86:POKE644,86:CLR:OPEN5,2,0,CHR$(PEEK(24816))+CHR$(PEEK(24817))
  22. 91 POKE665,5:POKE666,13:RE$=" ":SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF"
  23. 96 RP=2:RS=0:WP=RP:WS=RS
  24. 101 BS=255:TP$="[207]LD 7 [194]IT [208]ROTOCOL":TY=0
  25. 106 POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96
  26. 111 PA(0)=10:PA(1)=6:PA(2)=2
  27. 116 ML=22784:PRINTCHR$(14):POKE24569,0
  28. 121 OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1
  29. 126 DN$="":GOTO136
  30. 131 GET#5,A$,A$:IFFF=1THENGOSUB1056
  31. 133 SYSML:CLOSE11:POKE24569,0:TM=0
  32. 136 POKE198,0:POKE53280,6:PRINT"[147][154] =*= [193]UTO [214]ERSA-[212]ERM 4.0 [205][193][201][206] [205][197][206][213] =*=  "
  33. 141 PRINT"         1 > [212]ERMINAL [205]ODE":PRINT"         2 >[156] [212]RANSMIT [208]ROGRAM "
  34. 146 PRINT"         3 >[156] [210]ECEIVE [208]ROGRAM"
  35. 151 PRINT"         4 > [196]ISK [195]OMMANDS"
  36. 156 PRINT"         5 >[150] [193]UTODIAL"
  37. 161 PRINT"         6 >[152] [212]OGGLE [208]UNTER [208]ROTOCOLS"
  38. 163 IFTY=1THENPRINT"         7 >[159] [195]HANGE [194]LOCK-[212]RANSMIT [211]IZE"
  39. 166 PRINT"         9 > [209][213][201][212]"
  40. 171 PRINT"  <[195][204][210]/[200][207][205][197]>[158] [210]ETURN TO [205][197][206][213]"
  41. 176 PRINT"[159]  [208]UNTER VERSION : "TP$
  42. 178 IFTY=1THENPRINT"[159]                   [194]LOCK SIZE ="BS"[157] "
  43. 181 GETA$
  44. 186 IFA$=""THEN181
  45. 191 ONVAL(A$)GOTO201,391,216,1081,576,1351,1451,181,496
  46. 196 GOTO181
  47. 201 PRINT"[147]  [212]ERMINAL [205]ODE  "
  48. 211 GOTO1471
  49. 216 PRINT"[147]    [208]UNTER [196]OWNLOADING [205]ODE  [146]":PRINT"          [180]"TP$"[170]"
  50. 221 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"[206]AME OF [198]ILE FOR [196]ISK?"
  51. 226 PRINT" [195]AUTION: [193]UTO [211]AVE W/ [210]EPLACE [146]":IFTY=1THEN1426
  52. 231 PRINT"> ";:GOSUB516:S$=B$
  53. 236 IFS$=""THENPRINT#5,"[193]";:GOTO1471
  54. 241 S$="@0:"+S$
  55. 246 GOSUB346:S$=S$+T$+",W"
  56. 251 CLOSE2:OPEN2,8,2,S$:GOSUB551:IFES THENPRINT:PRINT""ES$"":CLOSE2:GOTO216
  57. 253 PRINT"[147][156][210][197][195][197][201][214][201][206][199][146] "B$""
  58. 256 PRINT#5,"TTTTTTTTTTTTTTTTTTTTTTT";
  59. 261 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN261
  60. 266 SYSML+18:SS=ST:IFSS THEN291
  61. 271 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN271
  62. 276 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12
  63. 281 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN296
  64. 286 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO261
  65. 291 CLOSE2:PRINT#5,"SSSSSSSSSSSSSSSSSSSSS";:PRINT:PRINT"[156] [196][207][206][197] ":FF=1:GOTO1471
  66. 296 PRINT#5,"";:PRINT":";:GOTO261
  67. 301 PRINT"[212]YPE OF [198]ILE:"
  68. 306 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT"> ";
  69. 311 GETB$:IFB$=""THEN311
  70. 316 TY$=B$:FL=0
  71. 321 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":FORX=1TO900:NEXTX:RETURN
  72. 326 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":FORX=1TO900:NEXTX:RETURN
  73. 331 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":FORX=1TO900:NEXTX:RETURN
  74. 336 IFB$=CHR$(13)THENFL=1:RETURN
  75. 341 GOTO311
  76. 346 PRINT#5,"UUUUUUUUUUUUUUUUUUUUUUUUU";
  77. 351 GET#5,A$:IFST<>0THEN351
  78. 356 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO376
  79. 361 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO376
  80. 366 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO376
  81. 371 GOTO351
  82. 376 PRINT"[198]ILE [212]YPE: "A$""
  83. 381 GET#5,A$:IFST=0THEN381
  84. 386 RETURN
  85. 391 PRINT"[147]  [208]UNTER [213]PLOADING [205]ODE  [146]":PRINT"          [165]"TP$"[167]"
  86. 393 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":IFTY=1THEN1376
  87. 396 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT"> ";:GOSUB516:S$=B$:IFS$=CHR$(13)THENS$=""
  88. 401 IFS$=""THENPRINT#5,"[193]";:GOTO1471
  89. 406 GOSUB301:IFFLTHENS$="":GOTO401
  90. 408 PRINT"[147][156][212][210][193][206][211][205][201][212][212][201][206][199][146] "S$""
  91. 411 CLOSE2:OPEN2,8,2,S$+T$:GOSUB551:IFESTHENPRINT""ES$"":CLOSE2:GOTO396
  92. 416 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
  93. 421 GET#5,A$:IFST<>0ORA$<>"U"THEN421
  94. 426 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN426
  95. 431 SYSML+9:CK=ST
  96. 436 FORX=1TO400:NEXT
  97. 441 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN441
  98. 446 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT
  99. 451 PRINT#5,"ZZZZZZZZZZZZZZZZZZZZZZZZZZ";
  100. 456 IFPEEK(669)<>PEEK(670)THEN456
  101. 461 GET#5,A$:IFST<>0THEN461
  102. 466 IFA$=""THENPRINT":";:GOTO436
  103. 471 IFA$<>""THEN461
  104. 476 IFCK=0THENPRINT"-";:GOTO426
  105. 481 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN481
  106. 486 PRINT:PRINT"[156] [196][207][206][197][160]":FF=1:CLOSE2:GOTO1471
  107. 491 SYSML+21:A$=CHR$(PEEK(634)):RETURN
  108. 496 IFTY=0THENPRINT:PRINT
  109. 498 PRINT"[209][213][201][212]?  [193][210][197] [217][207][213] [211][213][210][197][146]?  (Y/N)";
  110. 501 GETZ$:IFZ$="N"THEN136
  111. 506 IFZ$="Y"THENCLOSE5:CLOSE1:CLOSE2:CLOSE11:GOTO1306
  112. 511 GOTO501
  113. 516 PRINT" [146][157]";:B$=""
  114. 521 GETA$:IFA$=""ORA$=""ORA$="[147]"THEN521
  115. 523 IFA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN521
  116. 524 IFA$=" "THENIFLEN(B$)=0THEN521
  117. 526 IFA$=CHR$(20)THEN541
  118. 531 IFA$=CHR$(13)THENPRINT" ":RETURN
  119. 536 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO521
  120. 541 IFLEN(B$)=0THEN521
  121. 546 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO521
  122. 551 REM GET ERROR CHANNEL
  123. 556 INPUT#1,E1$,E2$,E3$,E4$
  124. 561 ES$=E1$+","+E2$+","+E3$+","+E4$
  125. 566 ES=VAL(E1$):RETURN
  126. 571 POKE22784,0:RUN
  127. 576 B1=56577:B2=56579:IF(PEEK(B1)AND16)<>0THEN651
  128. 578 PRINT"       [217]OU ARE CURRENTLY [207][206]-[204][201][206][197]!":GOSUB10000:POKE198,0:GOTO181
  129. 651 POKEB2,32:POKEB1,0
  130. 656 PRINT"[147][149]     -- [194]ULLETIN [194]OARD [196]IRECTORY --     [146]":GOSUB816
  131. 657 PRINT"[156][217]OUR CHOICE":GOSUB891
  132. 661 PRINT"[145][205]OVE [212]-[196] SWITCH TO [196][193][212][193][146]               ":FORK=1TO2000:NEXTK:GOTO676
  133. 666 D$="":PRINT"[145][197]NTER NUMBER TO DIAL >     [157][157][157][157][157]";:INPUTD$:IFLEN(D$)<7THEN656
  134. 671 RETURN
  135. 676 POKEB1,32:T=200
  136. 681 T=T-1:IFT<>0THEN681
  137. 686 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1):IFN$<CHR$(48)ORN$>CHR$(57)THENII=1
  138. 691 PRINT"[129]"N$"[146]";:N=VAL(N$):IFN=0THENN=10:IFII=1THENII=0:NEXTX:GOTO651
  139. 696 GOSUB721:NEXTX
  140. 701 NT=NT+1:FORXB=1TO(40-D):PRINT" ";:NEXTXB
  141. 706 PRINT"[152][212]RY #"NT:GOTO771
  142. 711 PRINT"[199]OING TO [212][197][210][205][201][206][193][204] [205][207][196][197]":PRINTQL$:GOTO1471
  143. 721 FORN1=1TON
  144. 726 POKEB1,0
  145. 731 T=3
  146. 736 T=T-1:IFT<>0THEN736
  147. 741 POKEB1,32:T=3
  148. 746 T=T-1:IFT<>0THEN746
  149. 751 NEXTN1:T=15
  150. 756 T=T-1:IFT<>0THEN756
  151. 761 RETURN
  152. 766 END
  153. 771 PRINT"  [156]([208]RESS <[198]7> TO CHOOSE A NEW NUMBER)":CT=0:DC=0:BU=0:SI=0
  154. 773 IFLEN(D$)>8THENSI=-100
  155. 776 PRINT"[215]HEN CONNECTION IS MADE, BELL WILL SOUNDBEFORE GOING TO [212]ERMINAL";
  156. 778 PRINT" MODE.":POKE198,0
  157. 781 PRINT" ---=[ [208]RESS[159] <[195]LR/[200]OME> FOR [205]ENU ]=----";:NP=0:FOR ZZ= 450TO0STEP-1
  158. 786 GETA$:IFA$="[136]"THENZZ=-1:GOTO651
  159. 791 X=PEEK(B1):X=XAND16:GOSUB1311
  160. 796 IFA$=CHR$(19)GOTO136
  161. 798 IFBU>3ANDDC=0ANDCT=0THENBU=0:ZZ=-1:GOTO806
  162. 801 NEXTZZ
  163. 806 POKEB1,0:FORZY=1TO200:NEXTZY:PRINT"[145][145][145][145][145][145][145][145][145][158]  ###### [195]ONTINUOUS [196]IALING [205]ODE";
  164. 811 PRINT" #######":PRINT"              [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOTO676
  165. 816 PRINT"[145]";
  166. 818 PRINT"<1>[195][194][205] [208]ROG [216]CHANGE <2>[195][194][205] [201]NFO [216]CHANGE"
  167. 821 PRINT"<3> [200][193][204] #1          <4> - - - - - - - -"
  168. 826 PRINT"<5> - - - - - - - - <6> - - - - - - - -"
  169. 831 PRINT"<7> - - - - - - - - <8> - - - - - - - -"
  170. 836 PRINT"<9> - - - - - - - - <10>- - - - - - - -"
  171. 841 PRINT"<11>- - - - - - - - <12>- - - - - - - -"
  172. 846 PRINT"<13>- - - - - - - - <14>- - - - - - - -"
  173. 851 PRINT"<15>- - - - - - - - <16>- - - - - - - -"
  174. 856 PRINT"<17>- - - - - - - - <18>- - - - - - - -"
  175. 861 PRINT"<19>- - - - - - - - <20>- - - - - - - -"
  176. 866 PRINT"<21>- - - - - - - - <22>- - - - - - - -"
  177. 871 PRINT"<23>- - - - - - - - <24>- - - - - - - -"
  178. 876 PRINT"<25>- - - - - - - - <26>- - - - - - - -"
  179. 881 PRINT"[149]              [146][159] <99> [207]THER [149]              "
  180. 886 RETURN
  181. 891 NT=0
  182. 896 PRINT"";
  183. 901 A$="":INPUTA$:IFVAL(A$)>99THEN651
  184. 902 IFVAL(A$)=99THEN666
  185. 903 IFVAL(A$)<1THEN136
  186. 904 IFLEN(A$)>2THEN651
  187. 906 ONVAL(A$)GOTO921,926,931,936,941,946,951,956,961,966,971,976,981,986,991
  188. 911 A=VAL(A$)-15
  189. 916 ONAGOTO996,1001,1006,1011,1016,1021,1026,1031,1036,1041,1046
  190. 917 GOTO651
  191. 921 D$="1-405-381-2041":QL$="<ID/PASSWORD:******>":RETURN
  192. 926 D$="1-405-634-4890":QL$="<ID/PASSWORD: ******>":RETURN
  193. 931 D$="1-816-931-7425":QL$="<ID/PASSWORD: ******>":RETURN
  194. 936 D$="***4***":QL$="<PASSWORD: ******>":RETURN
  195. 941 D$="***5***":QL$="<PASSWORD: ******>":RETURN
  196. 946 D$="***6***":QL$="<PASSWORD: ******>":RETURN
  197. 951 D$="***7***":QL$="<PASSWORD: ******>":RETURN
  198. 956 D$="***8***":QL$="<PASSWORD: ******>":RETURN
  199. 961 D$="***9***":QL$="<PASSWORD: ******>":RETURN
  200. 966 D$="**10***":QL$="<PASSWORD: ******>":RETURN
  201. 971 D$="**11***":QL$="<PASSWORD: ******>":RETURN
  202. 976 D$="**12***":QL$="<PASSWORD: ******>":RETURN
  203. 981 D$="**13***":QL$="<PASSWORD: ******>":RETURN
  204. 986 D$="**14***":QL$="<PASSWORD: ******>":RETURN
  205. 991 D$="**15***":QL$="<PASSWORD: ******>":RETURN
  206. 996 D$="**16***":QL$="<PASSWORD: ******>":RETURN
  207. 1001 D$="**17***":QL$="<PASSWORD: ******>":RETURN
  208. 1006 D$="**18***":QL$="<PASSWORD: ******>":RETURN
  209. 1011 D$="**19***":QL$="<PASSWORD: ******>":RETURN
  210. 1016 D$="**20***":QL$="<PASSWORD: ******>":RETURN
  211. 1021 D$="**21***":QL$="<PASSWORD: ******>":RETURN
  212. 1026 D$="**22***":QL$="<PASSWORD: ******>":RETURN
  213. 1031 D$="**23***":QL$="<PASSWORD: ******>":RETURN
  214. 1036 D$="**24***":QL$="<PASSWORD: ******>":RETURN
  215. 1041 D$="**25***":QL$="<PASSWORD: ******>":RETURN
  216. 1046 D$="**26***":QL$="<PASSWORD: ******>":RETURN
  217. 1056 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15
  218. 1061 FORP=1TO5:POKES+4,21:FORT=1TO250:NEXT:POKES+4,20:FORT=1TO50:NEXT:NEXT
  219. 1066 POKES+24,0:POKES+15,0:POKES+5,0:POKES+1,0:FORL=0TO24:POKES+L,0:NEXT
  220. 1068 IF FF=1THENFF=0:RETURN
  221. 1071 POKE631,13:POKE198,1
  222. 1076 PRINT"[147]":GOTO711
  223. 1081 CLOSE15:OPEN15,8,15:PRINT"[147]":GOTO1241
  224. 1086 PRINT"[147][159] <[211][208][193][195][197][194][193][210] TO STOP/CONTINUE>":SYS828:OPEN1,8,15
  225. 1171 IFFG=1THENPRINT"[145][145]":FG=0
  226. 1172 PRINTTAB(8)"[156][208]RESS ANY KEY TO CONTINUE"
  227. 1176 GET A$:IFA$=""THEN1176
  228. 1181 GOTO1241
  229. 1186 IFT$="M"THENCLOSE7:CLOSE6:GOTO136
  230. 1191 GETT$:IFT$=""GOTO1186
  231. 1196 RETURN
  232. 1201 REM DISK COMMANDS
  233. 1206 C$="":PRINT"[145]>                              [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  234. 1211 GETB$:IFB$=""THEN1211
  235. 1216 PRINTB$;:IFB$=CHR$(13)THEN1226
  236. 1221 C$=C$+B$:GOTO1211
  237. 1226 PRINT#15,C$
  238. 1231 PRINT"[145]";
  239. 1236 INPUT#15,A$,B$,C$,D$:PRINT"           "A$","B$","C$","D$"        ":GOTO1171
  240. 1241 PRINT"[147]   [158]  ******* [196]ISK [195]OMMANDS *******  [146]":PRINT
  241. 1246 PRINT"           [196] - [196]IRECTORY"
  242. 1251 PRINT"           [194] - [194]LOCKS [198]REE"
  243. 1256 PRINT"           [211] - [196]ISK [211]TATUS"
  244. 1261 PRINT"           > - [196]ISK [195]OMMAND"
  245. 1266 PRINT"           [205] - [210]ETURN TO [205]AIN [205]ENU":POKE198,0
  246. 1268 FORX=1TO6:PRINT"          ";MID$("[149][154][156]",X,1);"[208]RESS KEY FOR OPTION"
  247. 1271 FORXX=1TO10:NEXTXX:GETA$:IFA$=""THENPRINT"[145]";:NEXTX:GOTO1268
  248. 1276 IFA$="D"THEN1086
  249. 1281 IFA$="."ORA$=">"THENFG=1:GOTO1201
  250. 1286 IFA$="M"THENCLOSE6:CLOSE7:GOTO136
  251. 1291 IFA$="S"THEN1231
  252. 1296 IFA$="B"THEN1541
  253. 1301 GOTO1271
  254. 1306 SYS64738
  255. 1311 DC=DC+X:IFDC>0THENSI=SI+1:GOTO1322
  256. 1316 CT=CT+1:SI=0:IFCT<40THENRETURN
  257. 1321 ZZ=-1:GOTO1056
  258. 1322 IFSI>100THENZZ=-1:GOTO1341
  259. 1323 IFCT>0ANDCT<17THENBU=BU+1
  260. 1326 IFCT<17THENDC=0:CT=0:RETURN
  261. 1328 REM:IF(PEEK(B1)AND16)=0THEN1341
  262. 1331 NP=NP+1:IFNP>2THENZZ=-1:GOTO1341
  263. 1336 DC=0:CT=0:RETURN
  264. 1341 DI$=" --- [206][207][210][205][193][204] [208][200][207][206][197] [204][201][206][197] ---              ":DC=0:CT=0:FF=1
  265. 1346 PRINT"[145][145][145][145][145][145][145][145][145]"DI$:POKEB1,0:POKEB2,32:GOSUB1056:PRINT"[208]RESS ANY KEY TO CONTINUE
  266. 1347 [151]198,0:[146]198,1:[151]198,0:[137]651
  267. 1351 [139]TY[178]1[167][138]
  268. 1356 [151]53280,0:[129]K[178]1[164]125:[130]
  269. 1361 [160]5:[159]5,2,0,[199](6):[151]665,75:[161]#5,A$:BS[178]255:TY[178]1
  270. 1366 [160]15:[159]15,8,15:TP$[178]"CLR(null)EW 8 PEEKIT (null)ROTOCOL"
  271. 1371 TY$[178]"PSP":[137]136
  272. 1376 [153]"(null)AME OF ASCILE TO SEND?":[153]"> ";:[141]1481:[139]I$[178]""[167]1471
  273. 1378 [153]"LOADCLR(null)(null)ATN(null)(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$WAIT "I$""
  274. 1381 [153]:T$[178]",P,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1396
  275. 1386 FT[178]1:[139]ER[179]20[167]1416
  276. 1391 [160]2:[153]"STR$ISK VALRROR!":[137]1471
  277. 1396 T$[178]",S,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1411
  278. 1401 FT[178]2:[139]ER[179]20[167]1416
  279. 1406 [160]2:[153]"STR$ISK VALRROR!":[137]1471
  280. 1411 [160]2:[153]"ASCILE (null)YPE VALRROR!":[137]1471
  281. 1416 [158]49173:[151]51227,FT:[158]49164:[139][194](512)[179][177]1[167]1421
  282. 1418 [160]2:[158]49173:[153]:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471
  283. 1421 [158]49173:[151]51224,BS:[158]49158:[160]2:[158]49173:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471
  284. 1426 [153]"(null)AVE ATNS > ";:[141]1481:[153]:[139]I$[178]""[167]1471
  285. 1428 [153]"LOADCLR(null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$WAIT "I$""
  286. 1431 [158]49173:[158]49161:[139][194](512)[178]1[167][158]49173:FF[178]1:[137]1471
  287. 1436 T$[178]","[170][202](TY$,[194](51227),1)[170]",W"
  288. 1441 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310
  289. 1446 [158]49173:[158]49155:[160]2:[151]668,[194](667):[158]49173:FF[178]1
  290. 1447 [153]:[153]"CLR STR$(null)(null)VAL ":[137]1471
  291. 1451 [139]TY[179][177]1[167]181
  292. 1453 [153]"               (null)EW PEEKLOCK (null)IZEWAIT > ";:[141]1481:[139]I$[178]""[167]136
  293. 1456 BS[178][181]([197](I$)):[139]BS[179]40[167]BS[178]40
  294. 1461 [139]BS[177]255[167]BS[178]255
  295. 1466 [137]136
  296. 1471 [153]:[158]49173:[139]FF[178]1[167][141]1056
  297. 1476 [158]49167:[137]136
  298. 1481 I$[178]""
  299. 1486 [153]" WAITCMD";
  300. 1491 [161]A$:[139]A$[178]""[176]A$[178]""[176]A$[178]"LOAD"[176]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]"CMD"[167]1491
  301. 1493 [139]A$[178]" "[167][139][195](I$)[178]0[167]1491
  302. 1496 [139]A$[178][199](13)[167]1531
  303. 1501 [139]A$[178][199](20)[167]1521
  304. 1506 [139][195](I$)[177]16[167]1491
  305. 1511 [139]([198](A$)[175]127)[179]32[167]1491
  306. 1516 [153]A$;:I$[178]I$[170]A$:[137]1486
  307. 1521 [139][195](I$)[178]0[167]1491
  308. 1526 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]1486
  309. 1531 [153]" ":[142]
  310. 1536 [153]
  311. 1541 [143] BLOCK FREE CHECKER BY JIM BUTTERFIELD
  312. 1546 [152]15,"I0"
  313. 1551 [159]9,8,0,"$0:"[170]S$
  314. 1556 N$[178][199](0)
  315. 1561 [161]#9,A$,A$,A$,A$,A$,A$
  316. 1566 [161]#9,A$:[139]A$[179][177]""[137]1566
  317. 1571 [161]#9,A$,A$,A$,B$
  318. 1576 F[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256
  319. 1581 [139]S$[179][177]"7%JK"[167][160]9
  320. 1586 [160]9:[153]"ON           PEEK(null)(null)LEN(null)(null) ASC(null)VALVAL :"F"CMD     "
  321. 1591 [160]9:[153]:[153][163]8)"ONCLR(null)RESS ANY KEY TO CONTINUE":[151]198,0
  322. 1596 [161] A$:[139]A$[178]""[167]1596
  323. 1601 [137]1241
  324. 9900 I[178]828
  325. 9901 [135]A:[139]A[178]256[167]9903
  326. 9902 [151]I,A:I[178]I[170]1:[137]9901
  327. 9903 [139][194](65440)[178]135[167][151]924,189
  328. 9904 [131] 169,1,32,195,255,169,36
  329. 9905 [131] 141,240,3,169,48,141,241
  330. 9906 [131] 3,169,1,162,8,160,0
  331. 9907 [131] 32,186,255,169,2,162,240
  332. 9908 [131] 160,3,32,189,255,32,192
  333. 9909 [131] 255,169,64,32,144,255,162
  334. 9910 [131] 1,32,198,255,32,144,255
  335. 9911 [131] 32,207,255,32,207,255,32
  336. 9912 [131] 207,255,32,207,255,201,0
  337. 9913 [131] 240,58,32,204,255,32,228
  338. 9914 [131] 255,201,32,208,3,32,196
  339. 9915 [131] 3,162,1,32,198,255,32
  340. 9916 [131] 207,255,168,32,207,255,72
  341. 9917 [131] 152,170,104,32,205,221,169
  342. 9918 [131] 32,32,210,255,32,207,255
  343. 9919 [131] 201,0,208,8,169,13,32
  344. 9920 [131] 210,255,76,115,3,32,210
  345. 9921 [131] 255,76,162,3,169,1,32
  346. 9922 [131] 195,255,32,204,255,169,204
  347. 9923 [131] 133,178,96,32,228,255,201
  348. 9924 [131] 32,208,249,96,256
  349. 9999 [142]
  350. 10000 [129]X[178]1[164]800:[130]X:[153]"ON                                    ONONONON":[142]
  351.